Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/pgm_ctrl/cuactrls/crotary.frm

Text File | 1995-05-22 | 6KB | 184 lines

VERSION 2.00
Begin Form frmRotary
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Knob Demo"
   ClientHeight    =   3705
   ClientLeft      =   1725
   ClientTop       =   2775
   ClientWidth     =   5370
   ClipControls    =   0   'False
   Height          =   4110
   Left            =   1665
   LinkTopic       =   "Form2"
   ScaleHeight     =   3705
   ScaleWidth      =   5370
   Top             =   2430
   Width           =   5490
   Begin CUACommand cmdOK
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   3915
      StandardButton  =   1  'OK
      TabIndex        =   6
      Top             =   120
      Width           =   1260
   End
   Begin CUAFrame grp5
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   6  'Bump
      Caption         =   "System &color editor"
      Height          =   2040
      Left            =   165
      TabIndex        =   0
      Top             =   1500
      Width           =   3525
      Begin CUARotor RotorColor
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FF0000&
         Index           =   2
         Left            =   2295
         TabIndex        =   5
         Top             =   1125
      End
      Begin CUARotor RotorColor
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FF0000&
         Index           =   1
         Left            =   1395
         TabIndex        =   4
         Top             =   1125
      End
      Begin CUARotor RotorColor
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         ForeColor       =   &H00FF0000&
         Index           =   0
         Left            =   495
         TabIndex        =   3
         Top             =   1125
      End
      Begin CUACombo cboSysColor
         BorderStyle     =   3  'Inset
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   360
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   270
         Width           =   2760
      End
      Begin CUAStatus stsColor
         BackColor       =   &H008080FF&
         BorderStyle     =   3  'Inset
         Height          =   375
         Left            =   360
         TabIndex        =   1
         Top             =   630
         Width           =   2760
      End
   End
   Begin CUALabel lbl
      Caption         =   "CUARotary is a knob. Great effort has been made to make it as realistic as possible. If you know how to operate a radio, you probably also know how to use this component."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000080&
      Height          =   840
      Index           =   6
      Left            =   180
      TabIndex        =   7
      Top             =   120
      Width           =   3540
   End
End
Option Explicit

Const COLOR_SCROLLBAR = 0
Const COLOR_BACKGROUND = 1
Const COLOR_ACTIVECAPTION = 2
Const COLOR_INACTIVECAPTION = 3
Const COLOR_MENU = 4
Const COLOR_WINDOW = 5
Const COLOR_WINDOWFRAME = 6
Const COLOR_MENUTEXT = 7
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Const COLOR_ACTIVEBORDER = 10
Const COLOR_INACTIVEBORDER = 11
Const COLOR_APPWORKSPACE = 12
Const COLOR_HIGHLIGHT = 13
Const COLOR_HIGHLIGHTTEXT = 14
Const COLOR_BTNFACE = 15
Const COLOR_BTNSHADOW = 16
Const COLOR_GRAYTEXT = 17
Const COLOR_BTNTEXT = 18
Const COLOR_ENDCOLORS = COLOR_BTNTEXT

Declare Function GetSysColor Lib "User" (ByVal nIndex As Integer) As Long

Sub cboSysColor_Click ()
   Dim Color As Long

   Color = GetSysColor(cboSysColor.ListIndex)
   RotorColor(0).Value = Color And &HFF
   RotorColor(1).Value = (Color And &HFF00&) \ 256
   RotorColor(2).Value = (Color And &HFF0000) \ (65535)
End Sub

Sub cmdOK_Click ()
   Unload Me
End Sub

Sub Form_Load ()
   cboSysColor.AddItem "Scroll bars"
   cboSysColor.AddItem "Desktop"
   cboSysColor.AddItem "Active title"
   cboSysColor.AddItem "Inactive title"
   cboSysColor.AddItem "Menu"
   cboSysColor.AddItem "Window background"
   cboSysColor.AddItem "Window text"
   cboSysColor.AddItem "Menu text"
   cboSysColor.AddItem "Window text"
   cboSysColor.AddItem "Title text"
   cboSysColor.AddItem "Active border"
   cboSysColor.AddItem "Inactive border"
   cboSysColor.AddItem "Program workspace"
   cboSysColor.AddItem "Selection"
   cboSysColor.AddItem "Selected text"
   cboSysColor.AddItem "Button color"
   cboSysColor.AddItem "Button shadow"
   cboSysColor.AddItem "Disabled text"
   cboSysColor.AddItem "Button text"
   cboSysColor.ListIndex = 1
End Sub

Sub RotorColor_Change (Index As Integer)
   stsColor.BackColor = RGB(RotorColor(0), RotorColor(1), RotorColor(2))
End Sub